home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Demos / Bowers Development / AppMaker 2.0b5 / Examples / Procedural / Gadgets / Pallette.c < prev    next >
Text File  |  1996-03-19  |  2KB  |  126 lines
  1. /* Pallette.c */
  2. /* Created 01/01/95 12:01 PM by AppMaker */
  3.  
  4. #include <Types.h>
  5. #include <Quickdraw.h>
  6. #include <Controls.h>
  7. #include <Dialogs.h>
  8. #include <Events.h>
  9. #include <Lists.h>
  10. #include <Menus.h>
  11. #include <Resources.h>
  12. #include <TextEdit.h>
  13. #include <ToolUtils.h>
  14. #include "ResourceDefs.h"
  15. #include "Globals.h"
  16. #include "Miscellany.h"
  17. #include "Scrolling.h"
  18. #include "WindowAids.h"
  19. #include "GadgetsData.h"
  20. #include "Pallette.h"
  21.  
  22. #define ToolsPalette        1
  23.  
  24.  
  25. /*----------*/
  26. void OpenPallette    (FSSpec*    fileSpec,
  27.                          short        fRefNum)
  28. {
  29.     WindowPtr        newWindow;
  30.     Rect            bounds;
  31.  
  32.     newWindow = GetWindow (WIND_Pallette);
  33.     if (fileSpec->name [0] != 0) {
  34.         SetWTitle (newWindow, fileSpec->name);
  35.     }
  36.     SetPort (newWindow);
  37.     SetNewInfo (newWindow);
  38.     cur->vScroll = nil;
  39.     cur->hScroll = nil;
  40.     cur->fileNum    = fRefNum;
  41.     cur->dirty        = false;
  42.     cur->filename    = NewString (fileSpec->name);
  43.     cur->windowKind = WPallette;
  44.     ((WindowPeek) curWindow)->windowKind = userKind + WPallette;
  45.     cur->witlHandle = GetResource ('Witl', WIND_Pallette);
  46.     cur->wictHandle = GetResource ('Wict', WIND_Pallette);
  47.  
  48.     cur->ToolsHandle = GetNewControl (CNTL_Tools, newWindow);
  49.     cur->ToolsChoice = GetCtlMin (cur->ToolsHandle);
  50.     cur->text = nil;
  51.  
  52.  
  53.     } /*OpenPallette*/
  54.  
  55.     /*----------*/
  56.     void ClosePallette    (void)
  57.     {
  58.  
  59.     DisposHandle ((Handle) cur->filename);
  60.     DiscardInfo (curWindow);
  61. } /*ClosePallette*/
  62.  
  63. /*----------*/
  64. void ControlPallette  (ControlHandle        whichControl,
  65.                          short                whichPart,
  66.                          Point                where)
  67. {
  68.     Rect            bounds;
  69.  
  70.     if (whichControl == cur->ToolsHandle) {
  71.         TrackPalette (cur->ToolsHandle, where, &cur->ToolsChoice);
  72.     }
  73.  
  74. } /*ControlPallette*/
  75.  
  76. /*----------*/
  77. void MouseInPallette    (Point        where,
  78.                          short        modifiers)
  79. {
  80.     Rect            bounds;
  81.  
  82.  
  83. } /*MouseInPallette*/
  84.  
  85. /*----------*/
  86. void TypeInPallette   (char        ch)
  87. {
  88.     if (cur->text == nil) {
  89.         SysBeep (1);
  90.     } else {
  91.         TEKey (ch, cur->text);
  92.         cur->dirty = true;
  93.     }
  94. } /*TypeInPallette*/
  95.  
  96. /*----------*/
  97. void UpdatePallette (void)
  98. {
  99.     Rect            bounds;
  100.  
  101.     Draw1Control (cur->ToolsHandle);
  102.     DrawClippedGrow (-15, -15);
  103. } /*UpdatePallette*/
  104.  
  105. /*----------*/
  106. void ActivatePallette    (Boolean    activate)
  107. {
  108.  
  109.     DrawClippedGrow (-15, -15);
  110. } /*ActivatePallette*/
  111.  
  112. /*----------*/
  113. void ResizePallette    (void)
  114. {
  115.     /* application-specific code to resize items in window */
  116. } /*ResizePallette*/
  117.  
  118. /*----------*/
  119. pascal void ScrollPallette    (short        newValue,
  120.                                  short        oldValue)
  121. {
  122.     /* application-specific code to scroll window */
  123. } /*ScrollPallette*/
  124.  
  125. /* Pallette */
  126.